home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / kernel / genfun.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  3KB  |  105 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 13 "genfun.d"
  17. #include <string.h> 
  18. #include "kernels.h" 
  19.  
  20. #define    CLASS    GenericFunction_c
  21. #define    ivType    GenericFunction_iv_t
  22.  
  23. #include "generics.h"
  24.  
  25. object    GenericFunction_c;
  26.  
  27. #include "genfun.iv"
  28.  
  29.  
  30.  
  31. #line 29 "genfun.d"
  32. imeth void GenericFunction_im_gInvalidObject(object self, int argn, object arg1)
  33. { 
  34.     char buf[256]; 
  35.  
  36.     sprintf(buf, "\nDynace: Generic %s passed an invalid object on arg %d.\n", gName(self), argn); 
  37.     if (argn != 1 && arg1) 
  38.         if (IsaClass(arg1)) 
  39.         sprintf(buf+strlen(buf), "First argument to generic %s was the class %s\n", gName(self), gName(arg1)); 
  40.     else 
  41.         sprintf(buf+strlen(buf), "First argument to generic %s was an instance of the %s class\n", gName(self), gName(ClassOf(arg1))); 
  42.     gError(self, buf); 
  43. } 
  44.  
  45. imeth void GenericFunction_im_gInvalidType(object self, int argn, object arg1, object cls, object arg)
  46. { 
  47.     char buf[320]; 
  48.  
  49.     sprintf(buf, "\nDynace: Generic %s passed an invalid object type on arg %d.\n", gName(self), argn); 
  50.     sprintf(buf+strlen(buf), "Expected an instance of %s\n", gName(cls)); 
  51.     sprintf(buf+strlen(buf), "Received an instance of %s\n", gName(ClassOf(arg))); 
  52.     if (argn != 1 && arg1) 
  53.         if (IsaClass(arg1)) 
  54.         sprintf(buf+strlen(buf), "First argument to generic %s was the class %s\n", gName(self), gName(arg1)); 
  55.     else 
  56.         sprintf(buf+strlen(buf), "First argument to generic %s was an instance of the %s class\n", gName(self), gName(ClassOf(arg1))); 
  57.     gError(self, buf); 
  58. } 
  59.  
  60. imeth char * GenericFunction_im_gName(object self)
  61. { GenericFunction_iv_t *iv = GetIVs(GenericFunction, self);
  62.     return iv->name; 
  63. } 
  64.  
  65. imeth int GenericFunction_im_gTrace(object self, int mode)
  66. { GenericFunction_iv_t *iv = GetIVs(GenericFunction, self);
  67.     int pmode = iv->trace; 
  68.     iv->trace = mode; 
  69.     return pmode; 
  70. } 
  71.  
  72. imeth objrtn GenericFunction_im_gCopy(object self)
  73. { 
  74.     return gShouldNotImplement(self, "gCopy/gDeepCopy"); 
  75. } 
  76.  
  77. objrtn GenericFunction_initialize(void) 
  78. { 
  79.     static int done = 0; 
  80.  
  81.  
  82.  
  83.  
  84.     if (done) 
  85.         return GenericFunction_c; 
  86.  
  87.     done = 1; 
  88.  
  89.  
  90.  
  91.     iMethodFor(GenericFunction, gInvalidObject, GenericFunction_im_gInvalidObject); 
  92.     iMethodFor(GenericFunction, gInvalidType, GenericFunction_im_gInvalidType); 
  93.     iMethodFor(GenericFunction, gName, GenericFunction_im_gName); 
  94.     iMethodFor(GenericFunction, gTrace, GenericFunction_im_gTrace); 
  95.     iMethodFor(GenericFunction, gCopy, GenericFunction_im_gCopy); 
  96.     iMethodFor(GenericFunction, gDeepCopy, GenericFunction_im_gCopy); 
  97.     return GenericFunction_c; 
  98. } 
  99.  
  100. #if 0 
  101.  
  102. cmeth objrtn GenericFunction_cm_gNewWithStr(object self, char *n){} 
  103.  
  104. #endif 
  105.